﻿Public Class Wegsucher
    Dim KoordinateX, KoordinateY, Dauer As Integer
    Public Sub setPosition(ByVal X As Integer, ByVal Y As Integer, ByVal DauerI As Integer)
        KoordinateX = X
        KoordinateY = Y
        Dauer = DauerI
    End Sub
    ''' <summary>
    ''' Gibt die X-Koordinate in Feldern Bemessen zurueck
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function getX()
        Return KoordinateX
    End Function
    ''' <summary>
    ''' ''' Gibt die Y-Koordinate in Feldern Bemessen zurueck
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function getY()
        Return KoordinateY
    End Function
    Public Function getDauer()
        Return Dauer
    End Function
    Public Function clone()
        Return Me.clone
    End Function
End Class
